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EDITORIAL 


Nous voilà donc en 1990. Cette année commence pour nous par notre Assemblée 
Générale. Nous espérons que vous y participerez nombreux. 

Comme vous pu le constater, nous avons changé d’imprimeur. Le numéro que 
vous evez entre les mains a été réalisé en photocopie. PPC ne peut plus 
supporter les coûts pratiqués auparavant. 

Nous avons hésité entre deux solutions : éditer un numéro tous les deux mois, 
augmenter la cotisation ou changer le mode d'impression. Cette dernière 
solution nous semble la meilleure. Ce sera à l'Assemblée Générale de trancher. 


Xavier Bille et Jacques Belin ont présenté leur démission du bureau. Nous ne 
pouvons que regretter leur décision et les raisons invoquées. 

Vous trouverez un droit de réponse de Pierre David, Jean-Jacques Dhénin et 
Jannick Taillandier, Le travail qu’ils ont fourni pendant de nombreuses années a 
permis au club de tourner. C’est un très, très gros travail. La réalisation, les 
mises au point successives de JPCRom ou de EDIT ne sont pas non plus de 
petits morceaux. Qu'ils en soient ici remerciés. 


Je dois ici réitérer mon appel à une plus large contribution de votre part à la 
réalisation de JPC. Il serait dommage que PPC mette les clés sous la porte, faute 
d'articles. C’est là le principal problème de JPC. Tous vos textes sont les 
bienvenus. Pourquoi ne publierait-on pas des programmes pour d’autres 
machines que les ordinateurs de poche? 


Jean REIBEL 








JPC 70 Page L — 











F 


Pierre David 
33 Bd St Martin 
75003 Paris 


Vend: 
Une imprimante ThinkJet HP-IL : 1500 FF. 


Jean REIBEL 

9 square Victor Fleming 

92350 LE PLESSIS ROBINSON 
Tél (1) 46 31 46 11 


Cherche: 
Carte HPIL pour HP150 


Vend: 
Interface Vidéo (HPIL) 200FF 





R. VERTENTE 
8 rue des MARNAUDES 
93250 VILLECOMBE 


Recherche: Livre HP-28 Insights 
de William Wickes ed. EDUCALC 
en prêt ou occasion (ou autre) 
c’est très urgent pour moi. 

Merci d'avance. 





MEMORY LOST 


Rom, unique objet de mon ressentiment... 


Le Bureau actuel du Club mérite notre 
reconnaissance pour le travail accompli au cours de 
cette année. Pour l'avoir vécu pendant 5 ans, nous 
sommes bien placés pour savoir les difficultés et la 
charge inhérentes à sa gestion. Nous comprenons 
donc que certains puissent souhaiter passer la main. 


Tout au long de l’année, nous n’avons pas senti de 
difficuité importante et pourtant il semble qu'il y a 
avait des ressentiments qui maintenant font matière à 
pré-texte. 


Pour ceux qui ont raté le début du film, rappelons que 
lorsque nous avions commencé JPC Rom, nous nous 
sommes confrontés à un ensemble de Lex disparates. 
Il a fallu en assurer la cohérence et l’homogénéité 
pour en faire un Lex : ceci représente un travail 
considérable auquel s'ajoutent les difficultés de la 
communication indispensable avec HP (attributions 
de numéros de Lex, etc.). Tout cela n’a été réalisable 
qu'après l'écriture de l’assembleur en C. 


Il nous était facile de continuer ce travail précis 
puisque nous avions commencé depuis le début. Foin 
des anacoluthes, nous ne porterons pas le chapeau. 


Nous ne nous attribuons pas la propriété de ce code. 
Les modifications essentielles ont toutes été publiées 
et nous n’avons pas fait de rétention d’information. 
Loin de tout profit personnel, nous n’avons retiré de 
JPC Rom que des soucis, dont cette lettre de notre 
ex-secrétaire empreinte de naïveté n’est que le 
dernier en date... 


Nous ne saurions chagriner ne fusse qu’une seule 
personne, et même s'il nous semble désagréable 
d’être interpelés de cette manière, c’est volontiers que 
nous donnons les sources du travail tel qu'il est 
aujourd’hui. 


Rappelons enfin que depuis plus d’un an, JPC Rom 
est vendu aux Etats-Unis, rapportant ainsi quelques 
milliers de francs chaque année sans aucun effort 
pour nos successeurs. Nous espérons que le Club 
saura continuer à faire fructifier ce travail. 


Signé : certaines personnes très bien placées dans 
lancien Bureau... 


L’ex-président, Pierre David 
L’ex-trésorier, Janick Taillandier 
L’ex-secrétaire, Jean-Jacques Dhénin 





MISE AU POINT 


Il était inévitable que des erreurs se tapissent dans les 
13000 lignes de source composant léditeur en 
assembleur dont la parution a commencé dans 
JPC 68. 


Ce qui devait donc arriver arriva donc. Les remarques 
des utilisateurs que nous soilicitions dans l’article ne 
se sont pas fait attendre. C’est Jean Reïbel qui a 
ouvert le feu en signalant deux comportements pour 
le moins anormaux. 
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Si le premier est dû à une réelle erreur dans GENRPLCS, 
l'autre est le résultat d’un Lex erroné, mais 
fonctionnant sans histoire depuis plus de 4 années ! 


GENRPLCS 


Le premier problème est mis en évidence par le 
segment de code suivant : 


10 DIM A$ 

20 FOR I=1 TO INF 

30 AS=GENRPLES (1, 1x mn) 
40 DISP 1;:MEM 

50 NEXT ! 


L’exécution nous montre une mémoire perdant 145 
octets à chaque itération, et une vitesse allant en 
s’amenuisant. Ce sont les signes caractéristiques des 
buffers non désalloués : 

- n'étant justement pas désalloués, la place n’est pas 
récupérée pour être remise dans la mémoire 
disponible, 

- le temps de recherche pour trouver un buffer libre 
est d'autant plus grand qu’il y a de buffers présents 
dans le système. 

Une simple reconfiguration (éteindre et rallumer le 
HP-71 par exemple) suffit à récupérer la mémoire 
perdue. 


Pour ceux que la technique intéresse, la correction se 
limite au simple déplacement d’une étiquette. Aux 
environs des lignes 310-320 dans le fichier source 
xaux.as, Vous trouvez l'étiquette RPL900 située après la 
ligne cosu8l =Enopos. Il suffit de déplacer RPL900 avant 
le Gosu8L, et nos ennuis sont terminés ! 


Pour ceux que la technique n’intéresse pas et pour les 
autres, voici comment faire pour mettre à jour votre 
éditeur. Faites les manipulations suivantes, en faisant 
attention à ne pas vous tromper ! 


A=HTDÇ(ADDRS("EDIT")) 
POKE DTHS(A+364) , 18" 
POKE DTH$(A+18558),"2" 


Et voila ! Vous disposez maintenant de la version A8 
de l'éditeur. Notez que la version distribuée par le 
Club est elle aussi corrigée. 


CURLEX 


Mais le plus étonnant est sans aucun doute l’erreur 
tapie dans CURLEX depuis plus de quatre ans ! 


L'effet était radical. Lorsque vous éditiez un fichier 
avec TEDIT ou XEDIT, et que vous vouliez connaître la 
position du curseur avec la séquence de touches 


Cf] IVIEN] en mode USER, tout ce que vous obteniez 
était un Memory Lost après quelques manipulations. 


Le plus surprenant était que les possesseurs de 
JPC Rom étaient à l’abri de ce comportement pour le 
moins étrange, alors que le code exécuté était le 
même ! 


Après quelques cachets d’aspirine, la vérité se fit jour. 
Pour comprendre, il faut savoir que CURLEX utilise 
une zone de 22 octets pour stocker une image de 
l'affichage du HP-71. Cette zone s'étend sur toute la 
function scratch et sur deux quartets de la statement 
scratch. Fort logiquement, le buffer commence à 
FUNCRO-2. 


Le seul et unique problème de CURLEX venait de ce 
que FUNCRO était mal défini ! Deux chiffres étaient 
inversés, ce qui fait que CURLEX affichait la position 
du curseur en écrasant soigneusement, tel un 
éléphant dans un magasin de porcelaine, quelques 
zones cruciales pour XEDIT ! 


Mais alors, pourquoi le CURLEX inclus dans JPC Rom 
ne posait-il pas ce problème, bien qu’utilisant le 
même code ? La raison est que JPCRom est 
assemblé avec le système de développement AREUH. 
Avec ce système, les définitions des étiquettes 
internes (telles que FUNCRO par exemple) sont déjà 
connues de l’assembleur, il n’y a donc pas de risque 
de se tromper. 


Cette erreur est restée durant plus de quatre ans, car 
aucun autre Lex n’utilisait les zones utilisées par XED1T 
et TeDIT.… Il faut savoir que l'éditeur utilise le moindre 
recoin de Ram disponible. 


Etonnant, non ? 


Pierre David (37) 
Janick Taillandier (246) 


LEX #CURLEX’ 
* (c) Copyright PPC Paris 1986, 1987, 1988, 1989 
10 #E1 
MSG 0 
POLL  POLHND 
ENDTXT 


« 


* Définition des valeurs système 
* 


=SFLAG? EQU #1364C Teste Le flag système 
SVIEWDT EQU #15147 Affiche La zone * D1 
=HXDCW EOU #OECB4 Conversion Hex-Dec 
=WIPOUT EQU #1B0AF Remplissage avec 0 
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=CURSOR EQU #2F47E Posit. du curseur [0..95] 
*FUNCRO EQU #2F889 arghhhh ! 
=FUNCRO EQU #2F898 Zone scratch 


=pKYDF EQU #18 KeY ReDefinition Poll 
=fLUSER EQU #F7 User flag € <0 ) 
=kCVIEN EQU #00008 Code de La touche VIEW 


* Définition des valeurs Locales 
* 


BUF EQU CFUNCRO)-2 

POLHND LC(2) =pKYDF Poll KeY Definition 
?8=C 8 
GOYES POL20 Interception éventuelle 


POL10 RTNSXM Retour à Basic sans action 
POL20 A=RO 
LC(2)  =kcVIEW 
?A#C B 
GOYES  POL10 


ROCA)=Key Code 


Retour si touche # VIEW 


C=D A SFLAG? abime D(A) 
B=C A B=D À 

LC(2)  =fLUSER 

GOSBVL =SFLAG? Tester Le flag "User". 





C=B A 
D=C A 
GONC  POLI0 Si désarmé, retour 
D1=(5) BUF Zone de 22 caractères 

A CCA)=Lonçueur de La zone 
LC(2) 22*2 


GOSBVL =WIPOUT à remplir avec Le code 0 


D1=(5) =CURSOR 
c=0 w 
C=DAT1 8 
GOSBVL  =HXDCW 


On ne gardera que C(3) 
C(B)=position du curseur. 


* Après l'appel: Mode DEC et résultat dans A: 
* A(W)=0...095 si Le curseur est en 96ème position 





A=A+1  B Curseur devient [1..96] 
SETHEX Mode HEX pour conversion 
D1=(5) BUF 

LCASC ‘0’ 

ASRC 

?A=0 P Pas d'affichage poids fort 


GOYES  POL40 


A=A+C  B Conversion DEC-ASCII. 
DATI=A 8 
Di=D1+ 2 Poids faible en 2ème 
A=0 8 





POL40 ASLC ACW)= 00..... 06 
A=A+C  B Conversion 
DATI=A 





D1=(5) BUF Di zone 
GOSBVL =VIEW1 Affichage du buffer pointé 


XH=0 Poll intercepté 
st=0 0 Action (et non redéf.) 
RTN 
END 





FAUSSES NOTES 


Quelques modifications (no. 67 page 13) : 
1 Dans la liste GAMME : 
Insérer "E" entre "D#" et "F"; 
2- Dans le corps du programme ORGUE, 14e ligne : 

Au lieu de : "OCTAVE" MOCTAVE" lire : "OCTAVE" OCTAVE 
(le 2e OCTAVE est une variable). 


Roger LE BRIS (535) 





Erratum 
Dans une fonction LINE par Michel POLSKI dans le 
JPC n°68 page 6, Le programme ECHLI est erroné 
voici la bonne version, fournie par l’auteur. 


<< !PPAR! RCL DUP #NPAR! STO LIST-> 
4 DROPN - C->R 

31 SUAP / ABS ’PY' STO PY *H 

136 SUAP / ABS !PX' STO PX *4 


>> 
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HP-28 


M. Polski Un défileur de texte 6 
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Un défileur de texte pour HP 28C 
Ce petit programme a pour but de faire défiler sur 
une ligne une chance de caractères à la vitesse voulue. 
Il a été conçu sur HP 2SC et peut fonctionner sur HP 
28S, mais il est certain que sur HP 28S cette routine 
est susceptible d’être améliorée avec les fonctions 
LCD-> et ->LCD par exemple. 

Cette routine peut être intéressante pour les débutant 
car elle n’est pas compliquée à comprendre et fournit 
une application amusante -et O combien utile dans 
des programmes de jeux, des formulaires etc... de la 
fonction SUB et du principe des boucles. 

Mode d'emploi: 

Entrez la chane de caractères entre guillemets. 
Entrez le délai d’attente entre l'impression de deux 
caractères consécutifs (de 0 à 1 seconde par exemple). 
Faites scrol … Et amusez-vous ! 

N.B. : On peut changer la ligne de défilement en 
modifiant le numéro de ligne -ici 1- avant chaque 
instruction DISP. 


SCROLL 
<< SAP DUP SIZE 
-> V CH CS 
<< CLLCD 
123FRI 
u "“ 
Gil y a 22 blancs dans La chane vide) 
123 I - SUB CH 1 1 SUB + 1 DISP V WAIT 
NEXT 
IF CS > 23 THEN 
24 CS FOR I 
CH 1 22 - 1 SUB 1 DISP V WAIT 
NEXT 
END 
122FRI 
CH CS 21 - I + CS SUB 1 DISP V WAIT 
NEXT 
CLLCD V WAIT CLMF 
>> 
>> 


Michel POLSKI (531) 
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HP-41 


B. Wiklund 


Ecoutez le mode de votre HP-41 
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HP-41 DDT ? 





Non, il ne s’agit pas d’une série spéciale. Ce 
programme est simplement la simulation d’un “bug” 
du HP-41 : lorsque l'on fait un reset sur le troisième 
ton d’un 8EEP, la machine émet une tonalité étrange 
(venue d’ailleurs) à chaque appui d’une touche, ou 
lors de l’exécution d’un programme. 


Si vous vous demandez à quoi ça peut servir, voici 
quelques suggestions : 

-XEQ MPR, XEQ CLOCK : vous avez maintenant une 
horloge qui égrène les secondes... 

-Il est possible (à vérifier) que la fréquence émise 
fasse fuir les moustiques (d’où le titre). Avec un 
oscilloscope et un micro, ça pourrait se vérifier. 

-Ce mode peut vous servir à vérifier le mode du 
microprocesseur : si la machine émet ce son 
désagréable, le microprocesseur est en mode running. 
Dans les autres cas, la machine est, soit arrêtée, soit 
en sommeil léger : elle attend l’appui d’une touche. 


Remarques : 


- Il est possible que ce programme bouffe vos piles en 
deux temps, trois mouvements. 

-Pour supprimer l'effet de MPR, effectuez simplement 
un SEP, Ou un TONE non grésilleur. 


Le programme : 


B4C3 092 MR“ 
B4C& 010 "pu 
B4CS5 O0D "M" 
B4C6 O5E C=0 MS 
B4C7 006 A=0 SX 
B4C8 3C4 ST=0 
B4C9 388 SETF 0 
B4CA 019 2NC GO 
B4CB 05E ->1706 
B4CC 3E0 RTN 


H.P. à tous !! 


Bertil Wiklund (508) 
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HP-71 


| G. Toublanc Tri rapide de répertoires 10 
| A. Rottman Les programmes internes de la HP-71 17 
P. David / J. Taillandier Edit (Acte IIT) 27 
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TRI RAPIDE DE RÉPERTOIRES 


Plusieurs programmes, relatifs aux répertoires de 
mémoires de masse, sont apparus dans JPC. Chacun 
ayant des objectifs différents et évoluant avec les 
facilités offertes par les nouvelles fonctions ou ordres 
de JCP Rom. L'auteur du plus récent de ces 
programmes, Alexandre Boldireff, nous proposait un 
tri de répertoires (SORTFILE : JPC 61 et 62) en 
utilisant d’une part un fichier-catalogue généré par 
lordre DDIR de JPC Rom et d'autre part un 
programme de tri alphanumérique de Laurent Istria 
GPC 57). 


Ce programme d’Alexandre facilite grandement le tri 
suivant différentes options mais présente deux 
inconvénients : 


1-pour les disquettes riches de nombreux fichiers les 
temps de tri sont longs. 

2-le programme duplique une partie, qui peut être 
très importante, du fichier-catalogue (un fichier de 
252 entrées occupe 10586 octets sans compter la 
partie dupliquée), ce qui peut provoquer un 
encombrement mémoire génant. 

Aussi j'ai essayé d'améliorer les choses grâce à un un 
programme en assembleur, et je vous propose donc 
un lex TRICATLX et deux nouvelles fonctions : 
TRICAT fait deux choses : trie un fichier généré par 
DDIR ou PDIR et donne le nombre d’enregistre- 
ments triés. C’est à la fois un ordre pour le tri et une 
fonction qui renvoie un nombre. 

OCTCAT donne la somme des octets des fichiers 
d’un répertoire ou des fichiers d’un type choisi. 

Ces deux fonctions opèrent très rapidement avec 
beaucoup de possibilités et de souplesse. 

Pour la suite tous mes exemples seront basés sur 
l'exploitatation du répertoire de la première disquette 
de JPC : CAT1 avec 252 fichiers. 

Parlons déjà du gain de rapididité : un tri de 
l'ensemble de CAT1 avec le programme de Laurent 
prend, avec mon HP71, 852 secondes soit 14 minutes 
et 12 secondes. Avec TRICAT cela se fait en 5,5 
secondes soit plus de 150 fois plus rapidement ! 


Mode d’emploi de TRICATLX 


Pour les exemples on suppose que le répertoire de 
CATI s'appelle aussi CAT1. 


TRICAT 

syntaxe : 

TRICAT (‘fichier'{'option"]) \Fichier : 
fichier généré par DDIR ou PDIR 


nom de 


sans option 


TRICAT ("CAT1")-> 252 
le répertoire CATI1 cest trié alphabétiquement tous 


types de fichiers confondus et la disquette CAT1 est 
composé de 252 fichiers. 


les options : 
première série : tri alpha pour chaque type. 
ALL BASIC BIN DATA D-LEX FORTH KEY LEX 


SDATA TEXT ROM 41 75 


TRICAT TRICAT 


CCATI''AL") 


(CCATIV"ALL") ou 


-> 252 


CAT est trié par type et chaque série d’un type est 
triée alphabétiquement ( ce que ne fait pas le 
programme d'Alexandre) donc pour les 252 fichiers. 


TRICAT CCATL","'BASIC") ou TRICAT 
(CCAT1";"BA") 
-> 107 


les 107 premiers enregistrements de CATI1 sont ceux 
de type BASIC et triés alphabétiquement. 

On peut donc se contenter d'écrire les 2 premiers 
caractères de l'option. 


deuxième série : 
tri seulement par type mai: 
il suffit d’ajouter le préfixe 






n alpha. 
à l'option. 


NALL NBASIC NBIA 5 

TRICAT C'CATL,'NALL") ou TRICAT 
(CATL"NAL) 

-> 252 


/la différence avec TRICAT (*CAT1";"ALL") est que 
ici le répertoire n’est trié que par type et donc 
beaucoup plus rapidement : 0,48 secondes au lieu 

de 5,5 secondes.\ 

TRICAT ("CATI",'NLEX") -> 50 

les 50 premiers enregistrements sont de type LEX 
mais non triés alphabétiquement. 


on pourra donc lister CATI1 trié par type et alpha en 
faisant tout simplement : 

TRICAT ("CAT1","AL") @ PLIST CATI 

pour lister les fichiers LEX seuls, par exemple, on 
pourra faire : 

N=TRICAT ("CATI",LE") @ PLIST CAT1,1,N 


OCTCAT 

syntaxe : 

OCTCAT (“fichier"["option"]) 

même données, mêmes options que pour TRICAT 
le préfixe "N" devant les options est inopérant. 














OCTCAT ("CAT1") où OCTCAT ("CATI","ALL") 
-> 553079 

l'ensemble des fichiers de CAT1 représente 553709 
octets. 

OCTCAT (‘CAT1","BA"”) +OCTCAT ("CATI","LE") 
-> 215530 


Deuxième syntaxe : 

TRICAT (no de canal,[;'option"]) \OCTCAT (no de 
canal{,"option"]) 

exemple pour imprimer la liste des fichiers basic et 
des fichiers lex de CAT1 sans les dates : 

ASSIGN #1 TO CAT1 @ DIM A$[40] 

N=TRICAT (1,'BA") @ FOR 1=0 TO N-10 

READ #1;A$ @ PRINT A$[1,24] @ NEXT I 
N=TRICAT (1,'LE") @ FOR I=0 TO N-1 

READ #1,[A$ @ PRINT A$[{1,24] @ NEXT I 
ASSIGN #1 TO * 


Quelques idées d’utilisation de TRICATLX : 
-recherche de l'existence ou non d’un type de fichier 
sur un support de masse sans avoir à afficher tout le 
répertoire. 

-extraire de disquettes-archives, telles celles de JPC, 
les fichiers BASIC et LEX par exemple pour les 
implanter sur une disquette d’usage courant. 
-inventorier une "disquette-brouillon" pour y faire le 


"ménage". Supprimer les anciennes versions de 
programmes. 


/-faire un unique répertoire ordonné de plusieurs 
supports de masse.\ 


Je ne propose pas de programmes BASIC pour 
lutilisation de TRICATLX, laissant à d’autres le soin 
de le faire (en particulier je m’adresse à Alexandre), 
et j'espère voir fleurir des versions toutes plus 
performantes les unes que les autres. 

En ce qui me concerne TRICATLX m'a été très utile 
pour "éplucher" le contenu des SWAP DISCS 
d’Educalc où souvent plusieurs versions d’un même 
programme ont été réalisées à différentes dates où 
ont été collectées par diverses personnes. 


Guy Toublanc (276) 


LEX ‘TRICATLX’ 
* TRI des fichiers-catalogues générés par les mots 
* DDIR et PDIR de JPC Rom. 
* Conception et codage : Guy Toublanc (276) 
*3 octobre 89 
* ajout possibilité d’utilisation d’un numéro de 
* canal et suppression d’une bogue relatives aux 
* catalogues de MAIN. 6 novembre 89. 


10 #5C 
t EQU #31 

MSG O0 

POLL 0 





SREVPOP 
ERNDAHX 
=RSTDO 


TD1 


=eFACCS 
=eFTYPE 


OCTe 


TRle 
SORT 


ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
ENDTXT 





NIBHEX 
ST=1 
GONC 


NIBHEX 


GOSBvL 
P=C 
c=0 
?P= 
GOYES 
GOSBvL 
CD1EX 
D0=C 
ASA+C 
Di=A 
c=0 
LCASC 
A=DATO 
?A#C 
GOYES 
sT=1 


OCTe 

#F 

TRle 

#F 
*OCTCAT' 
t 
?TRICAT! 
1+t 


#17380 
#18349 
#08F19 
#2F599 
#012C7 
#OED3D 
#OED2C 
#09895 
#09F63 
#18322 
#0F216 
#2F8A5 
#11457 
#18318 
#OECÉE 
#09393 
#OASF7 
#08D31 
#136C8 
#06832 
#1c596 
#1C587 
#1c578 
#3C 

#3F 


4c12 
3 
SORT 


4c12 


=SAVDO 
15 

A 
#ilsp 
SREVPOP 


# 

ayt 

2 

8 
nonumb 
0 


routine de vérification 
de L'option choisie 
puis de La nature 

du fichier catalogue 








JPC 70 Page 11 — 











nonumb 


#ilsp 


cgood 


#ilxq 


tsttyp 


etype 
mterr 


textf 





DO=00+ 


C=DATO 
GOSBVL 
R&=C 
A=DAT1 
ASA+1 
Goc 
GOSBvL 
Di=01+ 
B=A 
BSR 
BSR 
?8=0 
GOYES 
GoTO 
GOS8vL 
GOSBvL 
D1=01+ 
c= 
C=DATI 
D1=D1+ 
A=DATI 
D1=01+ 
C=DAT1 








D1=01+ 
ASDATI 
D1=A 
D1=01- 
Gonc 
GosavL 
GonNc 
GOSavL 
GOS8vL 
goc 
D1=01+ 
c=0 
C=DAT1 
D1=01+ 
ASDATI 
D1=01+ 


C=C-1 
C=c-1 
Goc 
LCC2) 
GOVLNG 
GOSBVL 
LC(2) 
GONC 
GOS8vL 
Goc 
A=DAT1 
R2=A 
D1=D1+ 
ADIEX 
RO=A 
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2 


4 
=CSLWS 


s 
s 

filxq 
=RNDAHX 
16 

A 

A 

À 

A 

cgood 
argerr 
=SAVD1 
=FIBADR 


port 
disk 


tsttyp 
=FILXQS 
mferr 
SAvD1 
SFINDF+ 
mferr 
16 


4 BAD 


s ok 


A 
A 
textf 
=eFTYPE 
SMFERR 
ZRAMROM 
=eFACCS 
mferr 
=2PRFI+ 
mferr 
A 
porte 
# disk2 


TEST 


ADIEX 
D1=01- 
c=0 


LCC2) 
ST=0 
A=0 
A=DATI 
?A=C 
GOYES 
sT=1 
c=c+1 
c=c+1 
ASC 
GoYEs 
LCe2) 
2A#C 
GOYES 
ST=1 
c=c+1 


csR 
csR 
c=c+C 
D=C 
D=D+1 
D=D+1 
D=D+1 
D=D+1 
AER2 
P= 
LC(2) 
ASA-C 
c=0 
R1=C 
GosavL 
P= 
GoNc 
P= 
GoTo 
R3=A 
?A=0 
GoYEs 
A=A-1 
c=0 
P= 
LCC2) 
2ST=0 
GOYEs 
c=c+1 
c=c+1 
?ST=0 
GoYEs 
LC(2) 


B=C 
P= 
C=DATi 


> >>> >>> > 


> > © © 


IDIVA 
0 
œx 


etype 


BAD 


40 


disk2 


port2 
37 


A 
0 
4 














start 


fin?? 


OK2 


gtsoct 


gtalph 
tal 


ba 


alnul 
ib 


CD1EX 
c=c+D 
CD1EX 
A=A-1 
GONC 





C=D 
GOSBVL 
GONC 
GOTO 
Di=A 
c=0 
D0=(5) 
DATO=C 
C=R& 
GOSBVL 
D=C 
?C#0 
GOYES 
?2ST=0 
GOYES 
GOTO 
GoTo 
LCASC 
?C#D 
GOYES 
?ST=1 
GOYES 
ST=1 
LCASC 
Goc 
AER3 
D0=D0+ 
DATO=A 
Gosu8 
GOTo 
Gosu8 
LCASC 
GOSUB 
LCASC 
GOosuB 
LCASC 
GOSUB 





SAVMEME 
A 

A 
=CHKmem 
OK2 
mferr 


=F-RO-2 


=CSRUS 


A recherche du type 

tal de fichiers choisi 

3 ou s’il s'agit du 

du calcul de La somme 
des octets pour 

Les fichiers retenus 


gtsoct 


rAB’ 
alnul 


6 

A 
CATRI 
ib 
choix 
"18 
choix 
rap: 
choix 
2-0" 
choix 


argerr 


alpha 


choix 


all? 


choixy 
return 
gsbcat 
sorta 


sortal 


SORTIE 


CATRI 
CATRI1 


LCASC 
GOSUB 
LCASC 
Gosu8 
LCASC 
GosuB 
LCASC 
GOSUB 
LCASC 
GOSUB 
LCASC 
GOSUB 
LCASC 
GOSU8 
LCASC 
GOSuB 
2S7=1 
GOYES 
GOVLNG 
GOSUB 
GoTo 
?ST=0 
GOYES 





C=RSTK 
c=D 
GOSUB 
D0=(5) 
A=DATO 
GOSBvL 
GOSBVL 
GOSBVL 
C=A 
GOVLNG 
R2=C 
AER3 
A=A-1 
C=R1 
GOSBVL 
C=RO 
C=C+A 
CODEX 
RSTK=C 
A=RO 
DO=A 
D=0 
C=R2 


10" 
choix 
1er 
choix 
rer 
choix 
107 
choix 
1ps" 
choix 
2ETt 
choix 
4r 
choix 
1571 
choix 
5 
sorta 
ARGERR 
TRIA 
sorta 
3 

alt? 

A 
return 
4 


soct 
5 
choixy 
CATRI2 
A 
gsbcat 


A 

CATRI 
=F-R0-2 
A 
HDFLT 
RSTDO 
RSTD1 
Li 
FNRTN1 


préparation 
A pour Le tri 
calcul des adresses 
et des Limites 
puis tri des fichiers 
A pour Le type choisi 
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disk3 


bxh 


diské 
ex 
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B=C A 
CER3 
C=C-1 À 
DO=D0+ 14 
DO=D0+ 12 
D1=01+ 14 
D1=D1+ 12 
2ST=0 1 
GOYES 
DO=D0- 4 
D1=D1- 4 
A=0 A 
4 
A 





ports 


ASDATO 
2A#B 
GoYEs 
ADOEX 
CRIEX 
AFA+C A 
ADOEX 

CRIEX 

D=D+1 A 
20D À 
GOYES disk3 


rtex 


GOTO TRIAC 
A=DATI 4 
2A=8 A 
GOYES 
c=C-1 A 
?C<=D A 
GOYES 
A=R1 
CD1EX 
C=C-A À 
CD1EX 

A=0 A 
GONC  nobah 
CD1EX 
RSTK=C 
CD1EX 

CDOEX 
RSTK=C 
CDOEX 
RSTK=C 
DO=D0- 14 
DO=D0- 12 
D1=01- 14 
D1=01- 12 
?ST=0 1 
GOYES 
D0=00+ 4 
D1=D1+ 4 
P= à 
A=DATO 16 





gdisk 
TRIAC 


16 difi 


16 


D1=D1+ 16 
P=P-1 

GONC ex 
?S7=0 1 
GOYES 
?2ST=0 2 
GOYES 





4 
D1=D1- 4 
A=DATO 4 
C=DATI 4 
DATO=C 4 
DATI=A 4 
A=R1 
CERSTK 
Di=C 
C=RSTK 
C=C+A À 
DO=C 
C=RSTK 
C=C-A À 
CD1EX 
D=D+1 A 
C=C-1 A 
2CD A 
GOYES gdisk 
GOTO fin 
GOTO disk3 


C=RSTK 





C=DATO 
?C#8 
GOYES 
D=D+1 
c=0 
R3=C 


>>UXERXX 


D1=A 

AER3 

DO=(5) =F-RO-2 

C=DATO A 

C=A+C A 

DATO=C A 
11 
A 


tri alpha 
tri shell 


DO=D0+ 
DATO=A 
C=R1 

2ST=1 0 
GOYES res 
A=A-1 À 
2A#O A 
GOYES difi 
R2=C 

RTN 


GOSBVL =A-MULT 
C=RO 














detP 


Pfait 


whilep 


contP 


fork 
for! 


s$ 


#hileJ 


AAC 
AR3EX 
AEA+I 
c=0 
Let) 
GosBvL 
c=0 
c=c+1 
?C>=A 
GoYEs 
8=C 
c=c+C 
c=8+C 
c=c+1 
Gonc 
A=C 
c=R1 
RSTK= 
GOSBVL 
?A#0 
GOYEs 
C=RSTK 
R2=C 
P= 

RTN 
R2=A 
C=RO 
C=A+C 
p=c 
C=RSTK 
RSTK=C 
C=A-C 
ASRO 
C=A+C 
RSTK=C 
C=RO 
R1=C 
c=0 
RSTK=C 
Do=c 
ADIEX 
D1=A 
Gosu8 
D1=01+ 
P= 
D1=01- 
est 
cst 
C=DAT1 
P=P-1 
GONC 
8=c 
C=RSTK 
RSTK=C 
ASR2 
C=C-A 
RSTK=C 
?C<D 





> 


A enduJ 


SA-HULT 
A 
contP 


CSJ+P 


nextk 


TRANS 
16 


calcP 





GOYES  enduJ 
GOSUB eq 
Goc  enduJ 
C=RSTK 
RSTK=C 

D0=C 

ASR2 

AEA+C À 
ADIEX 

GOSUB TRANS 
C=RSTK 

GONC  whileJ 
c=R1 

GoSUB eq 
Goc  Csi+P 
C=RSTK 

AER2 


A 
TRANS 


GOSU3 TRANS 
C=RSTK 

AR2 

C=A+C À 
AER3 

2CA À 
GOYES nextk 
GOTO for 
C=RSTK 

B=C À 
C=RSTK 
RSTK=C 

A=R1 

A=A+C A 
2A>B A 
GOYES calcP 
R1=A 

D=D+C A 

C=B A 
RSTK=C 

GOTO fork 
A=C A 

D=C A 
C=C+C À 
C=A+C A 
AER2 


GOSBVL =IDIVA 
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C=D A 
GOTO whileP 


TRANS ?ST=0 2 routine d'echange 


Ps 3 
GONC RI 

nomain P= 4 

RI C=DATO 16 
DATI=C 16 
DO=D0+ 16 
Di=Di+ 16 
P=P-1 
GONC RI 
?ST=0 1 
GOYES retour 
?ST=0 2 
GOYES porté 
C=DATO 12 
DATI=C 12 
GONC retour 

porté  C=DATO 4 





DATI=C 4 
retour Di=A 
RTNCC 
eq Do=c routine de comparaison 
w des noms de deux 
P= 7 fichiers 
eqsCl C=DATO 2 jusqu'à 8 caractères 
240 B 
RTNYES 
?A<C 8 
GOYES retrn 
D0=00+ 2 
AR W 
AR W 
P=P-1 
GONC  eqsCl 
RTN 


retrn RTNCC 


CATRIZ C=P 4 prépare Le tri 
CR2EX par type de fichiers 
R1=C pour L'option ‘all’ 
DO=(5) =F-RO-2 
C=DATO 
D0=00+ 
A=DATO 
ASA-C 
R3=A 

-1 À 

Goc  finall 

A0 A 

GOYES finall 

D0=00+ 5 

A=DATO A 

c=R1 


> 


>> 








GOYES nomain de deux enregistrements 


finall 


soct 


hp71 


chx2 
bcchx 


nof ind 


clcoct 
bcoct 


GOSBVL 
C=RO 
ASA+C 
RO=A 
GOTO 
C=RSTK 
GOTO 








A=DAT1 
D1=01+ 
P=P-1 
GONC 
SETDEC 
C=A+C 


A-MULT 
A 
CATRI1 
sortal 


routine de calcul 
du nombre d’octets 
16 par type de fichiers 
6 ou pour tous Les 
1 fichiers 
hp71 


chx 
12 


10 


chx2 

# 

# 
clcoct 


4 identifie Les fichiers 
À du type choisi 

nof ind 

12 


A calcul de La somme 
1 des octets pour 
2 Les fichiers retenus 


bcoct 


y 
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SETHEX 
2ST=1 4 
RTNYES 
CDIEX 
C=C+B A 
CODEX 
D=D-1 A 
GONC  clcoct 
gtout AC HW 
CERSTK 
GOSBVL =FLOAT 
GOTO SORTIE 


END 





DISCUSSIONS SUR LES 
PROSEEMUEERTÈRNES DE LA 


La compréhension des programmes internes de la 
HP71 (les IDS) représente une étape nécessaire pour 
pouvoir attaquer une programmation en langage 
Assembleur. Cette tache est à la fois difficile et elle 
nécessite un emploi du temps qui n’est pas à la portée 
de tous les membres du club. Mais il reste à verifier si 
cette présentation trouvera des gens intéressés non 
seulement dans la lecture mais dans une participation 
active capable d’étendre le texte des articles 
présentés. Avant d’attaquer le fonds du problème on 
va essayer d'expliquer la signification d’une série de 
termes. 


Il y a 5 mots anglais dont on essayera d’élucider le 
sens à la fois comme signification technique et 
générale. Les mots qu’on veut présenter sont: token, 
trap, hook, poll, parse. 


token= quelque chose qui sert comme signe, symbole, 
ou signification. Le terme qu’on utilisera sera ’symbit” 
et la définition est un bit qui représente l’ensemble 
sous forme codée d’une instruction, fonction ou texte. 


trap =quelque chose qui provoque subitement un 
arrêt ou une entrave; un nib du code hexa qui établit 
Paction à suivre dans le cas d’une exception 
arithmétique. Le terme qu’on va utiliser sera entrave 
d'erreur. 


hook =un levier pour actionner sur un dispositif, 
terme utilisé dans le mécanisme de sélection 
(polling). on utilisera le terme crochet. 


poll = faire campagne dans une élection. Demander à 
chaque membre d’une délégation de préciser son vote 
individuellement. Etablir si chaque fichier LEX 
présent dans la machine est capable d'assumer unc 
tache specifiée ;le terme qu'on utilisera sera 
mécanisme de sélection. 


parse= faire une analyse grammaticale d’un mot ou 
groupe des mots. Coder selon les règles de base du 
logiciel, xromil et les tables LEX, le texte, les 
instructions, les mots-clef, les fonctions, etc. On 
utilisera le terme analyse. 


Le mécanisme de sélection contient des crochets qui 
per- mettent aux fichiers LEX d’intercepter 
Popération qu’ils doivent executer sur la machine. Il 
existe plus de 80 endroits dans le code opératoire du 
système qui donnent la possibilité d'exécuter une 
tache spéciale, par ex. analyser le nom d’un dispositif 
ou finir lexécution d’un programme. Ces points 
permettent de vérifier si les fichiers LEX présents 
dans la mémoire de la machine peuvent remplir la 
tache demandée. Le système opératif est connecté au 
code opératif du LEX ou il présente un symbit (sous 
forme de nombre), qui identifie la tache qui doit être 
executée. Il est clair que le fichier LEX peut accepter 
l'exécution de la tache s’il contient cette procédure 
adéquate. De cette façon on particularise très 
avantageusement l’utilsation du HP71. 

En ce qui concerne l'analyse lexicologique quand 
lanalyseur lexique établit la succesion des symbits 
(tokens) on cherche dans les tables textes asociées 
aux LEX pour déterminer une chaîne concordante et 
on associe le symbit respectif qui correspond au 
mot-clef. A partir de ce symbit qui constitue un index 
dans la table principale qui fournit ladresse 
d'exécution. Pour une instruction l'adresse du code 
exécution est precedée par une adresse (5 nibs) qui 
donne la distance relative vers la procédure d’analyse 
(parsing). Pour une fonction le code d'exécution est 
precedée par le nombre des paramètres et leurs 
descriptions ce qui permet l’analyse complète de la 
fonction. 

Le mécanisme de la décompilation utilise les symbits 
et on cherche à identifier les fichiers LEX qui 
possèdent un identificateur identique. Le symbit sert 
comme index dans la table principale. L’analyseur 
trouve donc dans La table principale :(1) 
l'emplacement du mot-clef dans la table texte, 
(2)ladrese d'exécution. Une instruction contient 10 
nibs avant l'adresse d’exécution la distance (S nibs) 
vers la procédure de décompilation. Pour une 
fonction on a précisé que cet emplacement est reservé 
à la description des paramètres. 


LE BUFFER DE CONFIGURATION. 


ADRESSE LISTE DE LA MEMOIRE DU BUFFER DE 
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CONFIGURATION 
2F9E6 _FAE10)10€0030300 -- 1D du Buffer 
2F9F6 20E023030030€043 
2FA06 030E230000E0050 Longueur du auffer| 
2FA16 300504004 1000019 
2FA26 008000002800 100 
2FA36 004A084 1000 A0D0 Fin du Buffer 
2FA66 40F000F000034F4E Chaïnage, du fichier 
2FA56 4020202020210000 
2FA66 42100082118850209 


Il y a trois buffers : (1) FF System RAM, (2) FE 
IRAM, ROM, EEPROM, etc. (3) FD 
Memory-mapped 1/0 (HPIL mailbox, etc). On va 
analyser la structure des buffers de configuration. On 
a d’abord l’identificateur (FF pour le premier buffer) 
L’identificateur est suivi par 3 nibs, un pointeur de 
longueur qui fixe la distance vers le suivant buffer ou 
vers un octet 0 ,qui marque la fin du buffer de 
configuration et le commencement du chaînage des 
fichiers. Il faut préciser que tous les fichiers forment 
une chaîne et que chaque fichier pointe sur le fichier 
suivant. 

Comme on peut voir dans le listing presenté plus haut 
ladresse où commence la chaîne des fichiers est 
2FAST et, on peut verifier que le pointeur 
’MAINST(=2F558) donne effectivement 
PEEKS$(2F558,5)=15AF2 . Le premier fichier étant 
"CON", on a ADDRS(CON’)=2FAS1 et 
HTA$(PEEKS( ’2FA51,,16))="CON". Le contenu de 
chaque buffer de configuration forment une structure 
de 10 nibs selon le format de la table qui suit: 





N Signification 


Nibble F E D c 8 A 9 8 F 6 
Kbyte 0.5 1 & 4 16 32 64 128 256 


Le type de dispositif identifie si on a affaire à un 
élément mémoire ou entrée/sortie realisée en 
mémoire (MM E/S). Les valeurs des nibs sont: 0 
RAM, 1 ROM, 2 EEPROM, F MM E/S, 3-5 non 
alloués, 6-E non-permis. 
La classe de l’élément est un index précisant le type 
du MM E/S. Il n'y a pas de classe pour les éléments 
mémoire. La valeur du nib est 0 pour le bloc HPIL; 
les autres valeurs ne sont pas asignées.\ \Le nombre 
du CHIP dans la sequence précise combien il y en a. 
Il est retenu sous la forme #chip-1. Ce index est 0 
pour MM E/S parce que cette catégorie a une table 
propre. Enfin nib 9 est reservé et d’habitude il n’est 
pas défini; il représente nib 1 de l’identificateur du 
CHIP. 
Il existe cinq sous-buffers FE représentant les ports: 
0, .05, 1, 2, 4. L’allocation était la suivante : port(4) 
FORTH/ASSEMBLER , port(2). EPROM-64k , 
port(1) RAM-32k. Il faut souligner que chaque 
module indépendant a un identificateur de 8 nibs avec 
la valeur hex ’B3DDDDDE’ ou 00000000 . En 
consequence le titre du fichier, dans chaque port, 
commence 8 nibs plus loin que le commencement du 
buffer. En ce qui concerne la partie incipiente du 
fichier elle a le format suivant: 
TITRE FICHIER Nib.1Fich. Type Table 

N s P E 


0 Position Sequece 


1 Numero Ensemble 


2 Numero Port 


000000000 


123050004 





Nom fichier 16 |sasIC E214 E215 E216 E217 
FFFFFFFEFEFEFEFEFD mss=module à Type fichier & [SIN E206 E205 E206 E207 
sequence simple Drapeaux 1 £OFO E0F1 
Position dans Le module Code pour copier 1 E208 E209 E20A E208 
CO pour mss) Temps de création 4 E20C E200 
Position du module Date de création 6 E000 
<pour un port-ext.) Longueur du chaîn. 5 0001 £0DS 
Les RAMs du chaînage FORTH E218 E219 EZ1A E21B 


000001240 


peuvent être groupées 
3 Log2(Grandeur) EEEEASBAF 
par ex. port .05) 
Pour des éléments de 
mémoire Les 3 nibs 
supér. sont donnés 
(les 2 inf. sont 0) 
Pour MMp-1/0 device Les 
3 nibs au milieu 


4 000000000 


5 ADRESSE(kbit) 024000080 


6 333300000 
7 Type du Dispositif 00001011F 
est toujours 1 
8 NO chip/seqg-1 ou 33330000 nib. inf. est 0. Pour 
La première catégorie 
L'unité est Le knib & 
pour Le second il existe 
9 Nibble 1 du ID  000000000 
à L'adresse 20000 


La table de grandeur: 





en modules logiques comme suivante: bit O0 amorcé 


Les quatre bits du ‘drapeau’ ont la signification 
signifie que le fichier est 
securisé, pour le bit 1 le fichier est privatisé. Dans le 
cas ou les deux bits 0&1 sont excités le fichier est de 
type E à la fois securisé et privatisé. 

Le titre du fichier en fonction du code copie(voir 
table suivante) peut être suivi d’un champ 
‘implementation’ et d'un sous-titre. 
L’implementation , est une zone de 8 nibs qui, pour 


sont donnés (Le nib. sup. fichier type DATA ,contient le numero (4 nibs) et la 


longueur de l'enregistrement (4 nibs). Le sous-titre 
(d’un fichier BASIC) a d’abord un entête (5 nibs) qui 
donne le chaînage vers le premier sous-programme et 
après un autre groupe de 5 nibs qui pointe vers une 
etiquette ou fonction definie par l'utilisateur. Un fin 


se sont des mots relatifs de ligne(EOL) finit le sous-titre. Cet ensemble a le 


rôle d’accelerer la recherche d’une etiquette ou 
fonction utilisateur. 
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LA STRUCTURE DE L’ENTETE D'UN FICHIER 
EN FONCTION DU CODE COPIE 


Code copie 0 1 2 4 8 
Type fich(ex.) BASIC DATA SDATA TEXT UD 
UD = definit par l'utilisateur 


Champs IMPLEM. Non Oui Non Non Oui 
1.F.(ext media) A 8 c No UD 
Soustitre Oui Non Non Oui Oui 


Le champs ‘implementation d'un fichier sur un 
milieu exteriur (e.m.) suit le format A,B ou C. Les 
fichiers BASIC,LEX et KEY utilisent 6 nibs donnant 
la longueur (format A),les fichiers DATA utilisent le 
format B, et les fichiers SDATA le format C qui a 6 
nibs, 2 pour protection et 4 pour specifier le nombre 
du registre ( le registre étant un enregistrement d’une 
longueur fixe de 8 bytes). 

Le programme FILECH vous permet d'obtenir une 
liste (dump) de la mémoire avec les adresses de 
chaque fichiers et les chaînages corespondantes et 
cette liste est accesible même si un fichier est protégé. 
Enfin l'annexe 1 présente un dump de la mémoire du 
HP71. Je souligne que en envoyant une disquette vous 
pouvez obtenir un fichier source qui par l’utilisation 
du programme REPORT vous permettra d’avoir un 
tableau imprimé en charactères gras. 


Aurel ROTTMAN 


REVISEZ VOS MATH(LEX) 


Certains d’entre vous ont peut-être remarqué que le 
programme MATHLEX (/PC 64) réagisait de façon 
plus ou moins curieuse. En effet, pour exécuter la 
fonction NEP par exemple, il fallait taper 018 ! 


L’explication est simple : Dans l’entête du Lex, si les 
déclarations des mnémoniques dans la Text Table 
étaient bien dans l’ordre alphabétique, les références 
des points d’entrées dans la Main Table auraient dû 
être dans l’ordre des Tokens, alors qu’elles étaient 
aussi dans l’ordre alphabétique. 


Voici donc un extrait de la version corrigée. 


LEX “MATHLEX' 


AD2-12 EQU #0C35F 
AD2-15 EQU  #0C363 


URES12 EQU 


1D 
MSG 
POLL 


ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 


KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 


dec 
# 
conje 
#F 
impte 
#F 
mage 
#F 
repte 
#F 
acoshe 
#F 
asinhe 
#F 
btde 
#F 
cbre 
#F 
coshe 
#F 
dtbe 
#F 
nepe 
#F 
sinhe 
#F 


TACOSH 
32 
#ASINH! 
33 
#BTD' 
34 
*C8R’ 
35 
#'COMPLEX* 
27 
CONJ' 
28 
COSH’ 
36 
*DT8S" 
37 
IMPT' 
29 
MAG 
30 
*NEP' 
38 
"REPT! 
31 
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KEY 'SINH 
TOKEN 39 
ENOTXT 


NIBHEX 811 
dtbe GOSUB popir 
D1=D1+ 16 


Jacques Belin (123) 
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HP71 MEMORY MAP 






















































































ADDRESS LABEL REMARKS * 
# 
DDUUD 
Üperating Gysten RUN 
1FFFE “ 
20000 
Menory Mspped 17 
2BFFF * 
2C00ÿ 
ard Reader 
2C01F * 
ZETO0U0 
Displav RAM 
2E3FE. * 
2F40Ù0 
Susten RAM 
2F986 Displau Driver * 
Keserved RAM 
2F9E6 CONFST RAM * 
Configuration BUFFER 
2F558 *DMAINST_ #x)fron here pointers * 
Main File Chain 
2F5t1 MRINEN * 
Hddr - 30000 __* 
2F571 IOBFST # 
Systen BUFFERS 
2F576 IOBFEN Soft _confiqured* 
2F575 CLCEFR and # 
Command _Stack 
2F57B RFNBFR Plug-in * 
Calc Mode BUFFERS 
2F58F OUTBS RAM # 
Output BUFFERS 
2F594 AUNENS x 
Free User _RAn 
2F599 AUMEME # 
2F599 MIHSTK # 
Mathenatic Stack 
= 
FOR/NEXT Stack 2F3SE FORSTK * 
GÜSUB Stack 2F5A3 GSESTK # 
Hctive Uariables 2F5H8 ACTIUE # 
Æ 
2FSHD CALSTK * 
Prior Environnents (from 
CHLis) includes: 
FUR/NEXT Stack 
GÜSUB Stack, 
Variables = 
2F582 RAMEND a 
Piug-in ROM, _ Independent 
RAM * 
FFCUB # 





£onfiquration Reserved 
Area 


FEFEE 





0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
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1 FILECHAIN RAM VISUALISATION 

CALL FILECH à SUB FILECH 

DIM AS$(7) 

PRINT #MAIN' 

ASCT)=XFNB2012CPEEKS(!2F558/,5)) 

CALL AD(A$(),B$) à IF PEEKS(BS,2)="00' THEN 80 ELSE A$(1)=B$ à GOTO 60 
IF PEEKS(BS,2)=/00’ THEN 80 ELSE AS(1)=8$ à GOTO 60 

ASC1)="2F9E61 

IF PEEKS(AS(1),2)#/FF' THEN DISP ‘CONFIG.ERROR’ à STOP 
C=HTDCASC1))+HTDCXFNB2012(PEEKSCAS(1),5)) [1,31 )+5 

IF PEEKS(DTHS(C),2)='EF" THEN N=HTDCXFNB2012(PEEKS(DTHS(C+2),3)))/10 
FOR J=1 TO N 

D=C+(J-1)*10+5 à SFLAG 1 

ASCT)=XFNB2012(PEEKS (DTHS(D+4),3))&'08" 

DI=D+2 8 D2=D1-1 
ES=PEEKS(DTHS(D1),1) à FSI 
IF F$=/0 THEN PRINT ‘Port. 
PRINT ’Port....",ES&'.0'&FS 

CFLAG 1 

CALL ADCASC),85) 

IF PEEKS(BS,2)="00’ THEN 260 

ASC1)=8$ 

GOTO 200 

NEXT J 

END 

SUB ADCASO),BS) 

ASC2)=DTHSCHTDCAS(1))+16) 

ASC3)=DTHSCHTDCASC2))+4) 

ASCHY=DTHSCHTDCASCS))+1) 

ASCS)=DTHSCHTD(AS(4))+1) 

ASC6)=DTHSCHTDCAS(S))+4) 

ASC7)=DTHSCHTDCAS(É))+6) 
DS=XFN82012(PEEKS(AS(7),5)) 
BS=DTHSCHTD(AS(7))+HTD(DS)) 

PRINT AS(1),/File Name. .’,XFN113004(PEEKS(AS(1),16)) 
NS=XEN82012(PEEKS(AS(2),4)) à CALL COMCNS,RS, 11) 
PRINT ‘File Type..',NS&'='&RS 
N=HTD(DS)/2 

IF 11=1 THEN N=CEIL(N-8.5) à GOTO 410 El 
1F 11=3 THEN N2CEIL(N-6.5) à GOTO 410 El 
PRINT ‘File Length’,DS&'=",N,' bytes’ 
IF PEEKS(AS(3),1)#"0/ THEN PRINT Flag ..... 1 ,PEEKS(AS(3),1) 
IF PEEKS(AS(4),1)#/07 THEN PRINT Copy Code..' ,PEEKS(AS(4),1) 
CS=XFN82012(PEEKSCAS(S),4)) 

PRINT ’Creation Time’ ,CS[1,2]8':'8CS(3,4] 
CS=XFNB2012(PEEKSCAS(6),6)) 

PRINT Creation Date’ ,C$[1,2]8'/'8CS(3,4]8'/'2CS(5,6] 

END 

SUB COM(ZS,RS, 11) 

DIM US(8) 

DATA BASIC,BIN,DATA,KEY,LEX,SDATA,TEXT,FORTH 

DATA E214,E204 ,E0FO,E20C,E208, E0DO, 0001,E218 

DATA E215,E205,E0F1,E200,E209,0,E025,€219 

DATA E216,E206,0,0,E204,0,0,E219 

DATA E217,E207,0,0,E208,0,0,E218 

J=1 

IF J>4 THEN PRINT ’FILE CODE ERROR’,Z$,'NON EXISTENT’ à STOP 
FOR 1=1 TO 8 


'EEKS(DTHS(D2),1) 
-",E$ à GOTO 190 ELSE 180 























0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 


IF 1>=2 THEN 650 

ON J GOTO 610,620,630,640 
RESTORE 520 à GOTO 650 
RESTORE 530 à GOTO 650 
RESTORE 540 à GOTO 650 
RESTORE 550 

READ USCI) à IF USCI)=2ZS THEN J1=J à 11=1 à GOTO 680 
IF 1=8 THEN J=J+1 à GOTO 570 
NEXT 1! 

RESTORE 510 

FOR K=1 TO 11 

READ X$ 

NEXT K 

IF J=1 THEN RS=XS 

IF J=2 THEN R$=XS&' S' 

IF J=3 THEN RS=XS8" Pr 

IF J=4 THEN RS=XS8" E7 

END 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, où dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n'avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme” apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !”), ainsi que le Lex de programmation structurée de ce mois-ci. 


CHARLEX 


TRICATLX OCTCAT XWORD 092049  TRICAT XWORD 092050 


10 CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: 
20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",PS;A$ à CS=AS à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS&CS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS{5*FLAG(5)+1] à POKE DTHS(A),CS à AZA+16-5*FLAG(S,0) à NEXT X à Q=4 


à LC OFF 








60 DISP DTHS(X)(3]; à INPUT ": ",PS$[1,MOD(N,16)1;C$ à GOSUB 90 
70 POKE DTHS(A),C$ à POKE DTHS(B),A$ à CFLAG -1 à END 
80 DISP DTHS(X)(31; à INPUT ,P$;C$ 








90 DISP DTHSCX) [3]; à INPUT sm ","---"D$ 

100 M=S & FOR Z=1 TO LENCCS) à M=NUMCCS(ZI)+M+1 à NEXT Z 

110 IF DS=DTHS(MOD(M,4096))(3] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme" à BEEP à PS=C$ à POP à ON Q GOTO 30,40,50,60 
“ à RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
006: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
000: 
O0E: 
00F: 
010: 
o11: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
o1c: 
010: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02c: 
020: 
02€: 
02F: 
030: 
031: 
032: 
033: 
036: 
035: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F318F9614000328F 
38F14A11D810AD23 
0705328F88FD7911 
11AD75407A101743 
11014D1C81500000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
080809442C180814 
A464242008355455 
5810000540714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1A28080008080A2C 
180008040E 340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
4440007901112070 
0500750509700000 
0070000000384540 
4020014E322E3140 


624 octets 


sm 








036: 084E794142400000 1E7 
037: 00000000002€4559 525 
038: 3200000000000000 83A 
039: 0000000000000026 852 
034: 5556587008365556 EB1 
038: 5810083645464830 202 
03C: 0832414248700024 543 
030: 5655587008345655 8A0 
03E: 5810083446454830 BEF 
0c3042414C700024 F44 
040: 5556587008355654 2A1 
041: 5810083546444830 5F0 
042: 0C3142404C700025 946 
5455587008355455 CAO 
5810083544454830 FEE 
: 0C3140414C700875 350 
: 1414187000044972 6A1 
40000€3159454E30 A01 
OC7A0F7949400024 D79 
5554587000084A71 0D5 
40000€523A262010 436 
0424587458400875 780 
: 1415187000094A70 ADD 
: 4000083544454830 E21 
: 0C3140414C300074 189 
5655545000054071 4E0 
40000 509 





050: 


CURLEX 90 octets 


0123456789ABCDEF sm 


345525C454850202 359 
802E000000000000 688 
980001EFF0000000 9F5 
FE0000000800001F D4F 
: F318196140001103 0A5 
1809664FD805317F 457 
8FC4631D9075ED1F 823 
998F20231C28FFA0 809 
B11FE74F2AF214F8 F97 
F4BCEOB64041F998 340 
: F23103814908E0A6 6C5 
: A149171AE0810A6A A54 
: 1491F998F28F7415 DEA 
000: 182184001 FBC 


TRICATEX 962 octets 


0123456789ABCDEF sm 


000: 452594341445C485 366 
001: 802E000000000000 695 
002: 98700c5132300000 90€ 
003: F020000000000000 D06 
004: 043000FF0053000F 067 
005: 8F43445341445138 3DE 
006: 452594341445231F 73C 


007: 
008: 
009: 
O0A: 
008: 
00c: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
O1c: 
010: 
01E: 
OF: 
020: 
021: 
022: 
023: 
026: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
o2c: 
020: 
02€: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
03A: 
038: 
03c: 
030: 
03E: 
03F: 
040: 


F4C128535604C128 AB9 
F785C1800FD2891E E76 
28F13080137134CA 207 
131AF231E415A196 589 
68085016115E38FD 90C 
3DE010C153484442 C89 
58FBc63117FD8FSF 056 
S8A96066528F875C 3EB 
18F75411174D215F 76A 
317315341721574A AC1 
c71781431311C450 E25 
38F598905138F875 1BA 
c18F36F9040217FD 55C 
215F31731534178C 8D2 
ECE4DO31F3803939 C88 
O8F7F5A031C35DE8 039 
F0837143€1431021 39A 
781331001331C302 6F5 
2231828410015838 A58 
A2F1851B06B068A2 DEE 
1131528A64385280 152 
6F6FÉCÉD7E7EZEZE 530 
7112203190EAD810 884 
98FE6CE020580206 C45 
66F1038A84FCCD22 FF4 
2318286111806806 355 
862603152052015F 68D 
38A14111BE2CEB8AA A6C 
D81085F0137C8137 E0B 
CCSADD2CE15F3E65 1E8 
D91F995F2143088F 5A7 
7C21056061FE131D 92A 
21B5A8F214411C8F CC1 
C2DE0D78AEFO8636 085 
O68646EA03314C48 403 
ATAOB73AE8553324 792 
1443111316514071 ACD 
E067007280332494 E29 
78703344147E6033 18A 
44D274603364F47A 508 
50338454705033C4 B6E 
5476403325F47C30 BDC 
3335447230334554 F26 
78203343137E1033 278 
73537410875F3809 5FB 
1F807c8161308633 975 
18A7C185410A0768 CFC 
938656067438A340 065 
0107D87920185A8F 3FC 
21428F813818F238 787 
608F695C1AF68061 833 
2F010A113CC1198F EC1 
94381118c2137061 225 
101300311AD5118C 5A4 
E160168170178861 942 
801831C30015A38A CC4 
481132129CA13212 02A 
9E78872E60801583 3CA 
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041: BA091CEBBBEE 1111 
042: 37E21370052E 1370 
043: 6137136061360618 
044: D18B1CD1CB861801 
045: 631732415AF15FF1 
046: S5CF159F16F17F0D5 
047: 7E861D1862801831 
048: C315A315F315C315 
049: 931110713507C213 
O4A: 407E2137E7CE8B76 
068: 0665F623F07DAD21 
04C: SE38A540E7DB1082 
04D: 0131113185A8F214 
6c214416A1401198 
7090CC8AC7010A01 
050: 8F94381118CA123E 
051: 4D23098FE6CE0D2E 
052: 68BADODSCÉCIE652 
FDA119068F943818 
054: ACB00710A2001102 
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055: 
056: 
057: 
058: 
059: 
O5A: 
058: 
05C: 
05D: 
O05E: 
05F: 
060: 
061: 
062: 
063: 
064: 
065: 
066 
067: 
068: 


118C2070706EE 110 
c206118109080613 
413313178C017F27 
1c18F28F215F1005 
OFAF50706112E206 
883127E004A10706 
134112CA13377800 
75701197C804F107 
112119E206119134 
D8137DA785007112 
CA1331307A400711 
2c211388260606F0 
7D50706111CA880F 
0101C3D9066F3FDA 
D7C6C21128FE6CE0 
DB65FE8627023540 
2415EF150F16F17F 
ODSFE861A1862001 
SE815085A015E315 
D313103134AF4271 


069: 5E19E6009E221161 
06A: BF4BF40D56E01038 
068: 0C412A1091B5A8F2 
06C: 146165142EA103CC 
060: 4328A8E116414211 
06E: 98F94381118CA100 
06F: 65BC076A8C110131 
070: 17F1758715017311 
071: BCED7AF2129874E0 
072: 1781371C9137D54C 
073: OAF2AF0753011202 
074: 15F38A6511781197 
075: D101091CF1C5133C 
076: 0131CF5401197920 
24F015801710054F 
05A720487400137C 
9137CF59DAFAO78F 
: 22381658 





















































































































A0 946 
D104 a4n6 





HE 














































































Editeur, utilitaires cautilan Page 002 Editeur, utilitaires Gxutil.a 
ARÉOM ASS. V2.4 
En TELE Editeur, utilitaires Guti Lan 90062 962 Pc 8 
ro st GOYES pond trouvé 1 
5 aera . 161 è 
veeis + Ce module contient les utilitaires propres à L'éditeur o x 
con +98 308 Fonctions. 16 posn2 
un # Les utilitaires pris dans JPC Rom sont dans Jpeutil.at 14 
À 24380 . 88 4 Peut-on continuer ? 
vase x posnlé oui. 
Para 4e par trouvé (Cy + 9) 
EN 2KENUT 
sad . os pond CD A CU) 2e index 
QE + But: attendre une pression de touche de l'utilisateur, Les a AIN trouvé (Cy #1) 
ane + touches de curseur horizontal sont autorisées pour le 
sénea déroulement de L'affichage. mn 
veeun + Entre: © RCE 
FR + Sortis : 
sean #0 AB) 2e 88) 2e code ohysique (IDS2, p. 12-19 AT + But: détruire le Fichier que L'on vient de créer par les 
peur + Gi 2118 207€ +. commandes D où X 
pus + Abime: A-D, 09, D1, P. 32 nibe ot SCRICH (CRSREQ) 8119 oe07E + Entrs 
veans « Agpolle: SCRLLR, CKSRÉQ, POPAUF, ATNCLR 9129 0897 + + EXIFIL « adresse du header du fichier créé 
eeore Niveaux: 6 # Sorttes 
aunoë # Detail: Cette routine n'est pas l'équivalent exact Abise: A. 8. C(1S-5). D, R-R2, D8, D1, SCRTCH(A. 
ave «de kayut dans KA car celle de KA détacte KOF et + Aopelles AVREM» 
sean 4 branche directement à L'extinction de KA. DRRUA + Niveaux: $ CHVNEMS plus un pour sauver CCA)) 
avan 2 Historique 9125 807€ + Note: le Fichier doit Faire exactement 3744 quartets 
ven + 86/88/21: ajout de documentation 9126 007€ + Historique: 
Hi 2 88/85/20: PO/JT pompage dans KA pour T/XEDIT 9127 0087 2 S8/LL/LL: PO/JT conception E codage 
von 9128 ea07€ ee 
aan 2129 297€ 
APRRD JFOGDS HKEYAT COSBUL 2SCRLLR Voir KEYWAITS (JPC No 20), sauf que 2198 o0a7E 1890000 sPURCE 065) *EXIFIL Destruction “interne” ? 
so087 508 GONC katla 14. ah bien les touches de 9121 00065 142 CNE 
Pavo Eracvan GOSBUL “EKSREQ déroulement del'afFichage sont 9192 00068 848 Ta A Pas de Fichier externe 
| BabLL GEEF GO1D =HEYUT supportées. 2123 20868 va RIVES alors retour 
| 9015 SFaane  kut19 COSBUL *POPBUF 9134 00060 869 2678 sCREAT 
| FAT GOSBUL *ATHCLR Abime ACA) 2125 a0258 08 RTNTES Le Fichier existait 48jà 
| d8823 04 MB 4 Pour compatibilité avec FINDA 
| oua25 81 ri 5 RSC RSDE 4e CCR) 
| one27 . 
9427 . e + Purger Le Fichier 
2027 = posnsg. posend pan2t . 
20027 . Pen34 JE7OFFF =(2744) taille du Fichier eréé 
| 28027 # But: réaliser POSCMSGS(C). A) daa88 Ex A AUD se and of Fi 
20027 + Entre geo 05 A BU) se offset (dest » source) 
ven2 ++ A(B) = caractère à chercher Baa5f 06 A CU) ie end of File 
ve 2 + posmsg seulement EN $ 
92027 . CU) # numéro de message eéea . nos soins, 11 l'a été 
Pan27 + Sorties eaea + forcément après notre Lex. En conséquence, notre Lex 
20027 + Cy + 9 + non trouvé eau «ne peut bouger 
2027 + Gels trouvé auat . 
20627 . CCD à DUAD + 8. "LENCMSGSC..)-L7 ÉCNEETEEC COSBUL emvnEne 
Page 002 Editeur, utilitaires utilise Page 804 Editeur, utilitaires cutil.a5> 
AREUN ASS. V2.4 AREUN ASS. 02.4 
9351 90027 + Abine: A-D, 00, 01, 88, RI, R2 si message insert, OUTES 9151 sans . 
9952 90027 «Appelle: CONVUÉ, FÉOLL, DONS, T8NSCS 9152 90048 # Li ne peut po y avoir d'acrour Oy = 1) eve 
9852 92027 + Note: la routine “posend” #5 sserues à L'aditeur de 9153 98083 ++ le Fichier o9Ë supprimé (done suffisamment de mémoire) 
Da62 90027 + tentes, Le numéro du message à chercher est codé en dur 9154 08043 #2 le fichier o8t créé (done pas an Rom) 
9955 40027 2 Notes La dicumentation de TENSGS 06 archi-faussa 9155 2004 . 
9865 92027 #0 UT Faudrait Lire 9155 0948 87 CrRSTk 
2357 94027 « ee Et: 9157 924 91 AIN 
953 90027 : D9 » = start of string 
2453 08027 : COR à BG + © and af string (final FF) . 
DaG9 29027 “here! e setfit 
9861 90827 + Miveaue 7 . 
2962 94827 «Historiques + Buts mettre le Flag 1 (le vrai Flag L colui de 
9662 99227 «38/10/29: PO/IT conception à 2 l'utilisateur) à L'AbE indiqué par CCR). 
2064 29027 . Sarseen + Entrss : 
P98S 20927 #02 CO) + 9 où 10 
9965 20027 ro0send COSBUL =CONVUC A(B) ie commande »n majuscule + Sortie: 
2057 aaa2E LOC) Cnidr (rte vCHO) Speo 
9068 29024 EPPET RO(D-2) 4e numéro du message . A(S), C(S), 9, P 
2963 2937 REA RUB) 2e caractère à chercher $ ; 
2070 9024 . . e 
9471 92038 2 fracteil un traducteur pour en massage 7 + Historique: 
9072 92074 : + 28/11/12: PO/AT conc: 
0973 49878 279008 GOSENL eFPOLL  abise ACA)-D(A), D, D me E 
MATE CONC2) pIRANS soime A-D, D9, O1, P 
975 29047 . 1890009 nstfl1 Ds (5) sFLOREC 08: © Flags utilisateurs 
D07S 20023 2 RACI-2) » nouveau nunèro da martage s'il y à aù traduction 1524 AMDATS 5 AG) 2e Flags 8 à 2 
ANT 2 RL(BD « caractère à chercher a Pa 15 
9875 09043 . El LEGD sFLIMSK CUS) += FLINS) 
9073 9242 292000 COSBUL =DUeavS DD :+ CAVHENS) 2e CE 
9029 99044 112 cRe CCR) 2e numéro de message 
9081 29040 250000 GOSEUL «TBnSGs ES 200 P Mettre le flag à 87 
0082 29054 . ri GOYES setf28 oui 
9082 29064 + 00 = * début de la chaine QE AMC 5 non à mwttra le Flag à 1 
202 0064 2 Ce © Fin 540 GOID serai 
2085 296€ + RI(B) = earictère à chercher ge setf20 CC 5 CAS) 2e no FLIME 
D086 29854 + Modifie gour tenir conote des neraurs de là documsntation Das $ 
H427 92054 2 de TEMSC 
943 92054 . 1584 DATE 5 Fiagn #4 3 2e souveaue Flag 
DRICTEN ae AGE) 2e garictèes à chercher a rt 
9898 29457 05 a BUA) 22 © Fin du message 
29853 02 1 . D 
P06B 601 Dosn2à entit, ettke 
20967 . ë 
Dar 2 Invariant de boucle + But: chercher des lignes dans un fichier externe 
A3 906€ 2 AB) + coractare à chercher + Entros 
2026 aaaGE 2 09 = © caractère du message À toster #2 AA) à adrause du Panier externe 
0857 9986 2 DGAD + indien du caractäre à Eatne (D. LEN-1) ee CAD « ounérs de 
Le32 9067 BCD à © Earminataur de La tabl entr seulement 





ONE 
. LU + adresse de cette Digne 


dr 4 
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ARÉÛA ASS. V2.4 ARÉU ASS. V2,4 
o201 + Sorti e a 
ai #2 AU) & numdro de ligne trouvé {te C en entree) 14 D0 se * ligne suivante 
+ = 06 = © ligne Erouvée (longueur LIF) 
ezu # Abime: AD, OÙ : 
re + Appelle: = + D8 « © ligne suivante 
9286 08008 + Niveaux: 1 (utilisé pour sauvegarde dans RSTK) + RSIK + numéro de la ligne précédente 
8207 62008 + Historique. 2 BCD » © FiLend 
2208 02008 + 88/11/19: PO/IT outraction de D et général + DC) + numéro de ligne à chercher 
o 88/11/27: PO/IT de T'intert, “ 
. #7 ceRsk 
& Ge 4 de 
ue 
167 2 file type ser 30200 2010 À À 2e ligne à chercher 7 
16F 2 REL(S) FiLeNS 7e GOYES  ske318 out : on arrête 
164 Done 5 D9 4e * début des donnes 588 GONE selue 
ot 8 À 
ës Bee À BCD 2e 1 pointe première Ligne) « 
+ Sortie sur E0F 
As file RS ei 
+ BC) » numéro d'uns ligne référence #08 +" cor 
+00 + * début de cette ligne . 
2 CU) = numéro de la ligne à trouver o7 ske208 CRSTK ca 
à va “eee A A0) 
o7 asie DC A DGA) := numéro de ligne à chercher et Rx 
136 Cooex CEA te! ligne référence 
6 RSC RSTK + © ligne référence 
. ewQ 
# AUD = © File header . 
+ SCA) « numéro de la ligne référence + But: prendre un code physique de touche, #t tester si la 
+ DCA) » numéro de la Ligne à chercher + touche est une de cells autorisées par le message 
2 RSTE « © ligne référence 2 tHen£ŸS, ce qui permet de traduire les reponses 
. + autorisées à une demande "es/No/Quit" 
Le Dès D8 :« © hesder «entr. 
ou M8 A AG) 4e numéro de à ligne référence 2 |: AB) « code shysique de La fouche (renvoyé par KEVAT) 
16F Dé08e 15 # Sortie 
187 15 DO: * REL(S) FiLekd scene 
136 CCD ve © REL(S) FiLeNd . t 
14 . 2: 
os 4 BCD n © REL(S) « 3: 0) 
16 CNE CU 2e RELCS) + Aime: AC, RB-ÂL, 59-52, D0, DL, OUTES 
a Bec À BCD se © Fitend + Aspelle: NÉVNAK, posnsg 
; «Niveau: 4 (02839) 
+ ACA) « numéro de la ligne référence + Historique. 
+ SCA) = © FiLeNd + 88/11/10: PO/IT conception $ codsge 
+ DCA) » numéro de la Ligne à chercher 
RSTK » © ligne référence 
. D152 Sr#0000 «VND  COSBVL #KEYHAN Conversion en non de Houche 
o7 CrRSTk 20153 a 
134 Dec D8 4e * ligne référence eo63 + ACUP) « ASCIT For keycode 
v81s3 + P« uord thru pointer Length of text 
Page 906 Editeur. utilitaires Gti lens Page 083 Editeur. utilitaires cuuti 1.28 
AREU ASS. V2.4 AREU ASS. V2.4 
9251 o818c 05 a A CCD 2e numèro ligne référence . 
0252 oatet sa ms 1 LL caractère 7 
9253 da10E . 72 CONS YASR non reconnu 
9254 do18E + pour à :# (ligne référence) Jusque (ligne à énercher) 2 Pr 0 
9255 ao1e€ + faire 9365 98170 3F00000 GOSBUL  sCONVUC Conversion en asjuseules 
9256 0918 9 si 08 »e FiLeNd ou +08 » 4FFf 9356 28177 318088 LOU) Gaia) CeteRES) 
9257 : alors sortir de là boucle “pour ÉCSUB  rootang 
9258 o fins 
8253 # passer à la ligne suivante 
9260 200€ 2 fin pour 
9261 919€ + renvoyer À à 
8262 . à 
2263 | YAE28 Non raconnu ! Mosrage arroné ! 
o254 | 4 renvoyer numéro dans (1.3) 
8265 Affectation des registres pondant là Boucle 
v266 BC) » © FiLend 
9267 CU) « numéro de la ligne courante (i) NASA Ca à cee) = 0 
2263 DU) x numéro de là ligne à chercher Fe à 
8259 Dè » ” ligne courante (longueur LIF) aix 
9270 
e271 654 GOTD ako200 aller directement au test sur à . 
#5 shke100 RSTKAC RSTK 2e | . 
16 CoEx CU) 22 © ligne courante + But: vérifier que le Flehiar pointé par DL 8 du type 
14 De. 08 ie" ligne courante o JET 
380 2028 A st EOF 7 + Entré 
m GOYES  5k0908 oui : D8 = © Fin du Fichier = Die © file hesder 
1543 AADATS 4 Crea + pes d'erreur 
+ SHPBYT (IL7A24) recopié pour éviter un COSBNL . DE inchangé 
26 A A # Cya li ce n9st pas un TEAT 
AL À . CU-8) 2 eFTIPE 
At À + Abine: AC), AG), € 
SR À + Appelle: 
GR À CU4) + Centre autres) 2 Niveaues 8 
AE CE AC) 4e longueur LIF + Historique 
+ Fin du pompage + 28/11/27: PO/JT conception L codige 
Pe + 39/06/11: PD/JT raconcaption À racodage 
436 Cea UP on tait que C(4) «0 ve . .. CUS 
CE 
su Aekel UP Gym Lai COM) FETE HCHCTAT One 16 De © File type 
Pr © A0 A 
at GOC  ake260 00 « © FFF ADATL 4 AUD 2e File type 
+ conversion an nombre de quartets à sauter co A 
sic ARE CE CU 2e FTEXT 
Al A RCA 
RAA A COS CKTKTI Ok 
AAA A AU 1e nb de quertets à sauter . 
# Invalid File Type 
16 CT d40e oe1x8 . 
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aua1 a0148 Jja00s LOG) »eFTYPE 901 00228 AE gets 
auai alt 2 RINSC GT 2502 002€ 943 en S 
4423 28189 GOYES  FL2-20 no device specified 
PUETTET CKIXTL DID 18 + O1 à l'original L 
2485 3186 9 RINCC . # C'est un spécificeteur ecterne 
2485 u183 : 
PORTE Fe 1 fichier doit être copié en mémoire 7 
eus eFiLet GONES  FL2-18 oui 
auiss s 
20183 + But: anslyser une description de fichier 2 manoriser ce A 
vis . ines informations pour FILEZ dans STHIRD/R1 LC(2)  eFSPEC 
eees . RTNSC Ce Le erreur 
vues 08e 7 chaîne Eokenisée 
eu1ss + Sortie : 
eus #2 STRIRD » D(U) à La sortie de FSPECX + Recopie en mémoire du Fichier 
e8135 + STRIRE « nom du Fichier . 
28188 #2 08 « réctusliss te FL2-18 RimA 
28185 + Abine: A-D, R8-R3, 08, O1, STNTDO, SINTRL, FUNCxx 3123 LC) se 
v2188 + Appelle: FSPECx EUU GOSBVL 2SALLOC 
28135 + Niveauxs 8 (PSPEG) + Abime : A. CA), COA), O1 
20188 « au Ari 
20153 2 = an cas d'erreur, sortie par BSERR 8 Sme 3 Source 
2188 + Historiques 3F0a GOSBUL »SvINre 
2018S n 89/06/17: PO/JT mise on commun e Abine : À €, D, RO, O1. 53, 54 
oies “ ae u 
03 À 
“FILEL 383 Sr 3 
| . ÉECTS) GOSBUL »SvINFO 
| # Sauvegarde d'un niveau de RSTK . 
. + Le Fichier est copié derrière le dernier, mis une 
1Fa0088 DIS) »5-Ra. + raconfiguration peut intervenir, la mémoire serait alors 
97 CeRSIE + déplacée. LT Faut done utiliser NOSUB, mais dga lement 
us DATI A S-RA-0 24 sauvegarde d'un niveau sauvegarder l'adresse de l'appelant 
+ Evslustion de la soécifieation e7 cast CU) 2e agresse de l'appelant 
: va ONE 
88C4 gravooe GOSBUL sFSPECE 6 niveaux pour lui tout seul ! Brogaea GOSBVL <PSHUPD 
vec . 
euLcs + Restauration d'un niveau de ASTK Srog00e GOSEVL «HCOSUS 
ec osaos COH(S) “COPY copie 
28ICS 1Fo2008 DIS) a$-R-ù + Abine + 4eD. D, OI, ROAD. 50-59, 512, STHIRO 
89102 147 CeATL à CCD 2e niveau sauvé au dersus 28281 ai GOC © Bierr Erreur lors de la copie 
00105 25 RSTReC 28284 
89107 . d8234 gFaoane GOSBVL sPOPUPO 
29107 2 L'évaluation s'estreile Dian passée 7 5 22288 08 co A CEA se adresse dépi lée 
an107 . 28250 45 RSC 
d107 442 GOC  bswr Cyr 1 ce srreur dans L'analyse ae2sr 
d1Da 978 Fa A+ den pas de nom de fichier 28287 cet CU) «© début du Fichier 
9100 91 GOYES Psp aa GoTo Fua-aa 
De10F . DE 
Page 019 Editeur, utilitaires éxuti lv Page 012 Editeur, utilitaires éxutitass 
AREUM 455. V2.4 ARÉUH ASS. V2.4 
9451 90107 2 Hinoriser las informations renvayées par FSPECx 9551 98296 8567 Bserr LOTO bierr Rallonge 
9252 09107 : 9552 09224 
9453 00107 1F0008 DL2(5) =STaTRà 9553 29234 & 
9454 99185 A3 co où Sauvegarde de D(H) pour CRETE: 9554 0294 + C'est un spécificateur interne 
9455 A01ES 1557 DATIeC u 2655 29224 . 
9456 991ED L7F DiDte 16 D1e(5) STNTRI 0555 00224 1F99000  FL2-29 DIe(S) "STNTRE 
9457 09179 1517 DATIeA 4 Sauvegarde du non du Fichier 9587 OOZAL APR CON 
9452 a91F4 91 RIN 2558 90244 1557 DATE 
9453 0er 0559 09248 17F Dit 16 
9260 90175 02 Fspocs C0 A 9550 99248 1517 DATIEA 
9461 Q01FS 2100 LOC) seFSPEC 9551 09247 8700008 COSBVL =FINOF 
2452 291FC 2000060  béerr ÉOVLNG *BSERR 2562 0288 e Abine à A:D, 56, 52, RI-RI 
9459 09299 9662 49286 197 coiex 
9454 09202 . . 9554 0239 575 GONC  FLZ-4 CO) se © début du Fichier 
9465 09203 » FILEZ 9555 d928C . 
9486 09203 . 9556 828€ + Le Fichier n'existe pas 
9467 22293 + But: à partir des descriptions laissées par FILEL dans 9587 928€ . 
2468 29292 + STMIRO/RL, chercher at créer éventuellament le Fichier 9558 0928C 272 2m 2 Faut-il le eréer ? 
9469 28202 + Entree 9563 GUNES  FL2-70 Oui! 
9479 02207 = STHTRO + DU) à la sortis de FSPEC= 9579 . 
DATE 90292 #2 STMIRI à nom du Fichier 9871 08201 + Le Fichier n'oxiste pas et 11 ne Faut pas le créer 
9472 28202 # 31e Lai le fichier doit tre copié en mémoire 9572 99201 + Renvoyer un erreur 
9479 92202 Sa Lai le fichier doit êtro er 2573 99201 . 
DR + Sortie 2574 99201 197 coiEx CCR) 2e nunèro d'erreur 
9475 29201 2 2 CU) « adresse du Fichier 9675 90204 92 RTASC Ce il y à eù erreur 
PAIE 9220) + Aime: A-D, 08, O1. RO-RT, 52-59, 512, STHIRO 2576 20206 . 
9477 0220 + Appelez SALLOC, SYINF+, SVINFO, PSHUPD. COPYU, POPUPD, 9577 98205 # LI Faut le créer 
D678 9620) 9 FINOF, CRETFS 2578 90205 ë 
9479 96203 + Nivnaue. 7 (S1n1/COPYU), 8 (S2e1/CRETF+) ou 3 (Sed/F INOF) 2579 99205 O0 FL2-20 DIe(5) «STHTR 
9430 20299 + Historique. 2520 90200 Ce0ATL à 
Q41 09297 # 39/08/17: PD/JT sise on cooun 9581 29201 ge à 
9482 9829) «29/08/17: PD/IT utilisation des Flags 51 8 52 9532 99204 C8 à 
2477 9297 206 LeG) zu 
9484 4029 98204 2Fh0008 GOSBUL =CRETFe Thégrig. la Lex n doit pas bouger 
9435 9820) SFILEZ sa2et # Abime : AD, 09, D, ROAL, 50257 
DB 92292 : DR2EL 448 GOC ue 
D487 98202 2 Analysn du résultat ranvoyé par FSPECN 92€ 4 119 ET 
9428 09207 . 2E7 1ra2088 DI(S) =SmMTR 
9489 92293 1F90008 DIe(S) =STRTRA DOE 1527 ADATL 
2459 D928A 1577 COL à 99272 125 DIsC 
DAGL 900€ AF7 De 4 Restaurar pour CRETE + 98275 1517 DATIeA ü Nom du Fichier 
9492 8211 LP Duo L DIS) *STRTRE 98278 DIeDIe 16 DD: fils type 
9499 99214 1597 ADATE Coms an rortin de FSPECX 982FC LOHEX 49h98 Last » copy code 
D4G4 29218 AC2 ca 5 9e: DATI 6 
9435 29218 94 200 5 99308 DisDte 16 
9476 9921 C7 GOYES  FL2-29 MAIN 28708 Diote 5 
8497 84 Get 5 ce A LOF mark 
e458 34 LE Cet À 
2439 29225 47 GOYES  ÉL2-29 2 PORT 92112 1503 Dar 4 
9600 29224 AC2 CCE 98316 119 ct ca but du Fichier 
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sci 
2602 
a] 
su 






“ 








90351 
90323 

90332 932 
20336 50 





20338 
2078 
20328 
90338 
90328 7730 
e832 588 
98322 
98342 0€ 
o844 ac 


Editeur, utilitaires Goutte 





+ Le Flehler 03 trouvé. On à non adrerre di 


FL2-A48 RTNCC 


“ce 





pes d'erreur 


re 





2 CHURT 
2 But: vérifier si le Fichier spécifié est modifiable ou non 
+ Entre 
«= (CAD » adresse (du header) du Fiéhier à & 
# Sorti 




















Hi stori qui 
39/05/17: PD/AT conception & codage 


0 CS) » 6 à Fichier nodi fiable 
a+ 65) + 1: Fichier en Rom CoFACCS) 
2 + 6(S) + 2 à Fichier SECURE CoFPROT) 
#2 €(S) « 3: Fichier ouvert COFOPEN) 
«+ CA) « adresse du Flenier 

# Abise: À SU), € DL 

oh ISRAN?, GETPRL, CHKOPA 

# Niveau: 2 





SCHEURT 


Vérifier ai le fichier et an Ron 
COSBL =ISRAN? Abime A. BC), C, OÙ 
CB À CU) +277 header sauvé par 1SRAN? 
GONE Ckbrom 





«Vérifier ai le Fichier est protägé (SECURE) 


Disc oi 
COSBUL «GE TPRL 
CE CA) 5e BAD non modifié par GETPRL 

SB «1 si le Flehier est SECURE 
2582 Fichier non sécurisé 
GOES  cxuote 
CONC  Cisee B.E.T. 

ckue1e 


© file header 


+ Vérifier si le Fichier est déjà ouvert 
COSUS  cHxopn 
GONC  CKdok Ok, 11 n'est pas déjà ouvert 

CKtopn Pae1 

CKusee Peel 
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2714 08378 32080 
9715 09370 Sroc0o 


26520008 
ë 
cs 


F 26 
Lis 
En 
En 

Le 
ve 
1586 
312 
ce 

1e 





ve 
SFD 





2 
9727 08585 
9748 90786 
9749 00285 


Editeur, uttlita 





CRPCIRTS 











+ + Cy+ 0: le Fichier n'est par 4454 ouvert 
yet: le Fienier est déjà ouvert 

+ Abine: À BU), C, D 

+ Aopelles L/OFNÔ 

+ Niveau: L 

+ Hi stor qu 

+ 89/06/17: PO/JT mise on commun 








CHKOPN BC A Sauver L'adresse dans SCA) 


+ Chercherle buffer contenant Le FIB 


LeG) rls 
GOSBUL «1/0FND Abime A, CCR), C(S, O1 








8 4-3 contiennent l'adress du début des données 
LEHEX  FORDE2S C(8-5) ++ FD (Fichier on Ram) 
ces 4 CU4-8) ++ adresse des données 


Code eutrait de OPENF- (11854 dans Rom du HP-71) 
here HP 


8. 
CHKOIS AMDATI 
7e 
GONES  CHKO® On n'a pas trouvé 1 C'est done ok 
DisDIe  Cr0F BED) (noF ILES) 
Dinde (*008E 0h) (r0FBEGD ) 
7 





w 
CHKOSD On » trou 
CroRECLb)- (roDBE CS ) 
CHORLEND)- (roRECLD ) 
CIF 18) (roRLEND) 
CITERRA 





! Beoep 1 “File One! 





CHKOSO Pa à 


+ BC) » adresse du Fichier 
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8651 ec 
2652 Becr 
2653 2e 
9654 a 
2655 

2656 

2657 

née 








Editeur, utiliteires Outils 


iron PaPel 
Csok 





1 
Fe 0 
AT 





e MRITE? 


+ But: renvoyer un numéro d'erreur connaissant le code 
«délivré par CHRT 


+ Entreo 
#2 CUS) » 9 à fichier modifiable 

= (SD « 1 à Fichier on Ron (PACS) 

+ C(S) + 2: Fichier SECURE CerPROT) 

CCS) » 3 : Fichier ouvert CaFOPEM) 





= Cys L+ pos d'erreur 
+ Cned à erreur 

CCR) + nunéro d'erreur 
Abime: C(S), CON) 








coc 
URTopn LC(2) 
RTNCC 
MRTsec LC(2) 
RTNCC 
MRTron LC(2) 
RTKCC 


meFOPEN 
“eFPROT 


meFACtS 





+ CHKOPN 


2 But: vérifier al le fichier spécifié 





E dhjà ouvert 











9752 0838 
2753 e07BA 20 
9754 0928 

9755 
9756 
9757 
0758 
9753 
2768 








ur utilitaires Grutil.a 


gs à On remet les choses en place 
RTNSC Get 
cHcoge re à 


2 BCAD + adresse du fichiar 


CE On remet les choses en place 
arce 


En 











17 

















Editeur, ut iltair 
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Êx 455, V24 see SMBOL TABLE AREUN ASS. V2,4 ones SYHBOL TABLE #0. 
Eutrn Un = 0035 Object + obj/autilao 
Extra Ua + we 
88296 Rol 0551 + 0542 536 Listing à Hat/auti al 
2193 Rel 9291 - 
PDIB Rel 0825 - Date: Sat Aug 12 17:41:27 1989 
Extra Un - 
Extrn Un : Errors + 000 
Extra Un - 
Extrn Un : 

29 Real 9722 - 
8746 - Areuh Atsenbler/Linker 2.4, (e) P. David & J. Taillandier 1985 Paris, France 

CHrOe 9753 - 

CHROPA - 

Ent ou + 

crunté 86e - 

Cxsok 9652 - 

Copa 843 - 

CKüron se 

Cheee 2650 - 

PONT - 

MEXTEIC - 

“ÉILEL o427 - 

“ILE 98203 Re 8435 

2E INDE Extra Uen = 0561 

SELS Extrn Un + os 

*FLOREG Extrn Un = es 

FPOLL Extrn Un + 7 

MESPECe Exten Un - uy 

FL2-18 88248 Re 9517 + 2588 

ru PEZDA Ral 0956 = 9435 0493 2587 

He D2CS Re 0573 + 0563 

FL N9313 Bol 0604 - 9549 0654 

Fitans Bé3C8 Bol 9768 - 

*CETPR Exten Un + 0626 

= 1070 Extra Un - os 

nISRANT Extrn Un + 2623 

AREVNAR Extra Un + 0947 

SREVAT 96000 Pal 0990 - 2912 

#HGOSUS Extra Un = 05 

sAUNER: Exten Un + oise 

=P0PBUT Extra Un = 924 

“POFUPD Exten Un = 9544 

=PSHUPO Exten Un = 577 

“PURGE HO Re 0190 - 

<S-REA Exten Un TE 

#SALLOC Extra Un = 0513 

nSCRLLR Extra Un + 078 

xStniRe Extra Un = PAS] 0489 A568 2573 

=STRTRI Extra Ven = 4583 

RULES Extra Un + 4623 
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=SYINFO 
=TBNSCS 
MARLTEZ 
MRToon 
HTrom 
Mere 
=Yn0 
VN0S20 
AFS 
bsere 
“FACE 
F OPEN 
# PAROI 
»eFSPEC 
mFTYPE 
sente 
mets 
Fons 
“id 
Katia 
sr 
DEC 
ref eEce 








soRECLE 
soRLEND 
“TRANS 
sposesd 


#poserq 
posntà 
posnzà 
pornsà 

MACREAT 

ssetfil 
setF28 
Sete 
shs1es 
5ke202 
58700 
0719 

st 

SevCnD 





Source + autil.ss 





Un 
Un 
Re 
Re 
Re 
Fe 
Rel 
Re 
Un 
Re 
Ven 
Un 
Un 
Un 
Un 
Re. 
Re! 
Re 
Un 
Rat 
Un 
Un 
Un 
Un 
Un 
Un 
Uk 
Rat 
Rel 
fol 
Re 
Bal 
Un 
Rat 
Roi 
Ra 
Roi 
Rel 








Rel 
Un 
Un 


SHRBOL TABLE ee 


+ 0528 
= ont 

8677 - 

9635 - 

0683 - 0682 

237 - 0684 

2247 - 

9367 + 0152 0258 9952 
= nt 
v462 - 0447 8551 
= 689 

9635 
2687 
o46t 2511 
a481 
9212 - 
9224 + 
CORTE 
2 0067 0355 
0034 + 9031 
L 083 
«0727 ot 
= 0726 077 
9736 
= 74 ea 
+ er on 
+ 0074 
9866 - 
2663 + 0957 
d108 - 0102 
9195 - 0632 
ali - 9102 
+ o4 
9175 - 
9125 - 9182 
9188 - 9124 
9272 - 2315 
9912 - 9271 
9322 + 9277 929 
9723 + 4914 
= 2958 
2 0867 
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au 0 
204) 20829 37 
a82 00025 2e 
de45 à 








913 
ve47 00028 B80F 
d848 98027 

8243 20027 810 
D8S8 08072 454 





Utilitaires empruntés à PC Rom <jpeuti lan) 





TITLE Utilitaires emoruntée à JPC Ron Cpeutil.a) 





+ Nono 
+ But: traduire un nombre en décimal 4t transférer 18 
+ représentation alohanumérique dans Le buffer pointé par 

















+ D. 
+ Entre 

# + Nombre an hexs dans ACA) 

++ O1 pointe sur le premier caractère à renvoyer 

s cre 

+ Sorti 

+ D! pointe aprés le dernier caractère envoyé 
«mode + hex 

. de chiffres affichés + 1 

2 Abimes AA). BC), CCR), DL 

+ Agpalles HEXDEC 

# Niveaux: 

# Historique. 

+ 86/87/21: supprimer la boucle infinie quand AA) » 8 
«86/88/81: ajout de documentation 


38/25/23: PD/JT pompage dans KA pour T/XEDIT 





“AumDI 748 À Nb dans AC), Ph 
COES nues 
COSBUL 2HEXDEC Résultat dans 48.0 


SETHEX Car mode « DEC après HENDEC 
+ Boucle de comptage du nonère de chiffres 
CE Haxr1048578 
nunle Papet 
ad P 


GOES nuelo 
e muni: P + nombre 





la chiffres à envoye 














munis CP 15 C(S) += mb chiffres à afficher - L 
+ préparation de AG) pour la boucle d'envo 
ASRC 
Past 
Ps 4e 
GOYES nun2® 
CE 
+ Fin de la boucle, AU) se C1 C2... En à... 9 
LOSC ‘0 Pour ajouter à tous las entffres C 
CE Pi nombre de chiffres À envoyer 
+ Boucle d'envoi des chiffres 
nur ASLC AQU) +8 Ciel. En 9. à Ci 
AAC 3 A(B) +2 valeur Aseit du chiffre 
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FiLahd 
“HEXDEC 
SKEYBUF 
SROVE A 
“HunaD 
her 
Ferté 
nunle 





Source 


Object 


Listing + 


Date 


Errors 


Areuh Astendler/Linker V2.4, Ce) P. David & J. Taillandier 1986 Pa 





Utilitaires empruntés à JPC Ron <jpeutil. 
AREUX ASS, V2.4  vese SYMBOL TABLE 


90084 Rel 
Eutrn Un 
Extrn Un 
Extrn Un 
20 Rel 
Rel 

1 

Rel 
Rel 
Rel 
9882F Rel 





& Jpeutitas 
+ oby/Jpeuti 1.0 


Vat/jpeuti 




















1 


+ Sat Aug 12 17r41:28 1939 








+ France 








v2.4 


19 
ui 
08 
30 
SE 
2 
a 





997 30088 


Utilitaires empruntés à JPC Rom <jpeutil.a8 
DATIA 8 envoi dans le buffer 
Diadte 2 
ho À Pour le ehiffrs suivant 
Pat 
GONE  num8 
Pr à En sorties A(U)a3, Pa, Cyr 
RIN 


fes 
+ But: mettre une touche on premier dane Le key buffer. 
+ Enr: 








R3(B) + code physique de a touche (ef 1052, p 12-19) 
AG), B(A), CA), D 
9 







ajout de documentation 
PO/2T pompage dans KA pour T/XEDIT 














cs à Entrée: RA(B)aghytical key-code 
LCG) 28 Nb de quartets du RÉYEUF deplacer 
Be À > Nombre de quartet à déplacer 
LC(S) skEveUr 

RC A > Adresse origine 

Città 

Cecil À > Adresse destinstion 

LNTOFF. 

GOSBVL »HOVE“# Déplacer 14 entrées du KEVEUF 
CeR2 La touche à ini 





G02(5) =KEVBUF 





00*(5) KEYPTR 
CADATe S 
ects Une touche de plur si possible 
COC  fheyle 
DAÏoec S 
Fhey1® ENTON 

RIM 





exo 











Le Journal JPC est le bulletin de liaison entre les 
membres de l’Association "PPC Paris", régie par la loi 
de 1901. Le Club est éditeur de JPC, et son siège 
social est au 56, ruc Jean-Jacques Rousseau, 75001 
Paris. 


La maquette de ce numéro a été préparée et réalisée 
par Laurent Chouraki, Jean Reibel et Aurel Rottman 
grâce à un système comprenant un HP71B, un lecteur 
de disquettes HP9114A, un HP9807A, deux HP9154 
et une imprimante LaserJet Séries IL. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
Courbis. 


Directeur de la publication : Jean Reïbel 
Numéro ISSN : 0762 - 381X 


Veuillez adresser toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01. 


